From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 6 Mar 1993 06:06:10 +0000 (+0000)
Subject: (electric-help-command-loop): Handle any kind of event.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~97033
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=07f6d4ae18f768326e24a6559d0808f5f01aec32;p=emacs.git

(electric-help-command-loop): Handle any kind of event.
---

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 327d48936ba..e73fe74a124 100644
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -119,7 +119,7 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"
   (catch 'exit
     (if (pos-visible-in-window-p (point-max))
 	(progn (message "<<< Press Space to bury the help buffer >>>")
-	       (if (= (setq unread-command-events (list (read-char))) ?\  )
+	       (if (eq (setq unread-command-events (list (read-event))) ?\  )
 		   (progn (setq unread-command-events nil)
 			  (throw 'exit t)))))
     (let (up down both neither